(in-package #:lilu-desk)



(defun open-terminal-htop (&key user wait-p )
  (let ((cmd (if user
                 (format nil "htop -u ~s" user)
                 "htop")))
    (open-terminal :cmd  cmd :wait-p wait-p)))
